library(plan)
g <- plan::read.gantt("gantt.dat",debug=TRUE)
summary(g)
